home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / rental / postit.prg < prev    next >
Text File  |  1986-05-29  |  12KB  |  383 lines
  1. **    Last revision: April 6, 1986 at 15:54
  2. * postit.acc - module to update the file
  3. STOR .f. TO ok
  4. CLEA
  5. STOR 'Y' to comm
  6. @ 10,00 SAY 'Do you want to post the tenant rent payments to the tenant accounts ?'
  7. @ 10,70 GET comm PICTURE '!'
  8. READ
  9. DO WHIL AT(comm,'YN') = 0
  10.  @ 10,70 GET comm PICTURE '!'
  11.  READ
  12. ENDD
  13. IF comm = 'Y'
  14.  STOR .t. TO accrue1
  15. ELSE
  16.  STOR .f. TO accrue1
  17. ENDI
  18. STOR 'Y' TO comm1
  19. @ 12,10 SAY 'Do you want to post the monthly rent accruals ?'
  20. @ 12,59 GET comm1 PICTURE '!'
  21. READ
  22. DO WHIL AT(comm1,'YN') = 0
  23.  @ 12,59 GET comm1 PICTURE '!'
  24.  READ
  25. ENDD
  26. IF comm1 = 'Y'
  27.  STOR DTOC(date()) to mdate1
  28.  @ 14,10 SAY 'What is the rent accrual date (MM/DD/YY) ? '
  29.  @ 14,59 GET mdate1 PICTURE '99/99/99'
  30.  READ
  31.  STOR .t. TO accrue
  32. ELSE
  33.  STOR .f. TO accrue
  34. ENDI comm1
  35. IF accrue1
  36.  CLOS INDEX
  37.  GO TOP
  38.  STOR 0 TO latech
  39.  STOR .t. TO yes
  40.  STOR .f. TO no
  41.  LOCA for SUBSTR(data,7,3) = '104' .AND. SUBSTR(data,12,1) = 'T' .AND.(.NOT. posted)
  42.  DO WHIL accrue1
  43.   STOR RECNO() TO rec_no
  44.   STOR SUBSTR(data,13,5) TO name
  45.   STOR SUBSTR(date,5,2) TO mlate
  46.   STOR (amount*-1) to mamount
  47.   STOR SUBSTR(date,3,2)+'/'+SUBSTR(date,5,2)+'/'+SUBSTR(date,1,2) TO date1
  48.   SELE B
  49.   USE &dr.:tenant
  50.   SET index to &dr.:codea
  51.   SEEK name
  52.   IF .NOT. (EOF() .OR. BOF())
  53.    STOR trentd TO mtrentd
  54.    STOR trentt TO mtrentt
  55.    STOR trenty TO mtrenty
  56.    STOR tlatec TO mlatec
  57.    IF VAL(mlate) > VAL(tlate)
  58.     STOR latech + mlatec TO latech
  59.     STOR latech + mtrentd TO mtrentd
  60.     REPL watchit WITH yes
  61.    ENDI VAL(mlate)
  62.    REPL trentd WITH (mtrentd-mamount),trentp WITH mamount
  63.    REPL trentt WITH (mtrentt+mamount), trenty WITH (mtrenty+mamount)
  64.    REPL trentpd WITH date1, tupdate WITH DTOC(date()), posted WITH yes
  65.    STOR .t. TO ok
  66.   ELSE
  67.    STOR .f. TO ok
  68.   ENDI # <) 0
  69.   SELE C
  70.   USE &dr.:account
  71. * SET INDEX TO &dr.:account
  72.   GO rec_no
  73.   IF ok
  74.    REPL posted WITH yes
  75.   ENDI ok
  76.   CONT
  77.   IF EOF()
  78.    STOR .f. TO accrue1
  79.   ENDI EOF
  80.  ENDD WHILE accrue1
  81.  IF latech > 0
  82.   CLOS INDEX
  83.   GO BOTTOM
  84.   STOR .f. TO firstup
  85.   DO WHIL .NOT. firstup
  86.    IF SUBSTR(data,1,1) = 'J'
  87.     STOR VAL(SUBSTR(data,2,3)) TO entryno
  88.     STOR .t. TO firstup
  89.    ELSE
  90.     SKIP -1
  91.    ENDI
  92.   ENDD WHILE .NOT. firstup
  93.   SET INDEX TO &dr.:account
  94.   STOR entryno + 1 TO entryno
  95.   STOR entryno + 1000 TO entryn
  96.   STOR STR(entryn,4) to entry
  97.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  98.   APPE BLANK
  99.   REPL date WITH DTOC(date())
  100.   REPL data with entry + '993020C'+'acc late chgs - all ' + DTOC(date())+'J'
  101.   REPL amount WITH (latech*-1)
  102.   APPE BLANK
  103.   REPL date WITH DTOC(date())
  104.   REPL data with entry + '991040D'+'acc late chgs - all ' + DTOC(date())+'J'
  105.   REPL amount WITH latech
  106.  ENDI latech
  107.  RELE latech, firstup, entryno, entry, rec_no, accrue1, ok, comm
  108.  RELE name, mlate, mamoubt, mtrentd, mtrentt, mtrenty, mtlatec
  109. ENDI accrue1
  110. IF accrue
  111.  SELE B
  112.  USE &dr.:TENANT
  113. * if more than 10 properties, will have to adjust this
  114.  STOR 0 TO rent01
  115.  STOR 0 TO rent02
  116.  STOR 0 TO rent03
  117.  STOR 0 TO rent04
  118.  STOR 0 TO rent05
  119.  STOR 0 TO rent06
  120.  STOR 0 TO rent07
  121.  STOR 0 TO rent08
  122.  STOR 0 TO rent09
  123.  STOR 0 TO rent10
  124.  STOR .t. TO yes
  125.  STOR .f. TO no
  126.  GO TOP
  127.  DO WHIL .NOT. EOF()
  128.   IF SUBSTR(bcode,1,2) = '01'
  129.    STOR rent01 + (trent +trente+trentm+ taddl) TO rent01
  130.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  131.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  132.   ENDI $(bcode,1,2) = '01'
  133.   IF SUBSTR(bcode,1,2) = '02'
  134.    STOR rent02 + (trent + trente+ trentm+ taddl) TO rent02
  135.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  136.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  137.   ENDI $(bcode,1,2) = '02'
  138.   IF SUBSTR(bcode,1,2) = '03'
  139.    STOR rent03 + (trent +trente+trentm+ taddl) TO rent03
  140.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  141.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  142.   ENDI $(bcode,1,2) = '03'
  143.   IF SUBSTR(bcode,1,2) = '04'
  144.    STOR rent04 + (trent +trente+trentm+ taddl) TO rent04
  145.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  146.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  147.   ENDI $(bcode,1,2) = '04'
  148.   IF SUBSTR(bcode,1,2) = '05'
  149.    STOR rent05 + (trent +trente+trentm+ taddl) TO rent05
  150.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  151.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  152.   ENDI $(bcode,1,2) = '05'
  153.   IF SUBSTR(bcode,1,2) = '06'
  154.    STOR rent06 + (trent +trente+trentm+ taddl) TO rent06
  155.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  156.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  157.   ENDI $(bcode,1,2) = '06'
  158.   IF SUBSTR(bcode,1,2) = '07'
  159.    STOR rent07 + (trent +trente+trentm+ taddl) TO rent07
  160.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  161.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  162.   ENDI $(bcode,1,2) = '07'
  163.   IF SUBSTR(bcode,1,2) = '08'
  164.    STOR rent08 + (trent +trente+trentm+ taddl) TO rent08
  165.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  166.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  167.   ENDI $(bcode,1,2) = '08'
  168.   IF SUBSTR(bcode,1,2) = '09'
  169.    STOR rent09 + (trent +trente+trentm+ taddl) TO rent09
  170.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  171.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  172.   ENDI $(bcode,1,2) = '09'
  173.   IF SUBSTR(bcode,1,2) = '10'
  174.    STOR rent10 + (trent +trente+trentm+ taddl) TO rent10
  175.    REPL trentd WITH (trentd + trent + trente +trentm + taddl)
  176.    REPL tupdate WITH DTOC(DATE()), posted WITH no
  177.   ENDI $(bcode,1,2) = '10'
  178.   SKIP
  179.  ENDD WHILE .NOT. eof
  180.  SELE B
  181.  USE &dr.:ACCOUNT
  182.  CLOS INDEX
  183.  GO BOTTOM
  184.  IF (EOF() .OR. BOF())
  185.   STOR 0 TO entryno
  186.   STOR .t. TO firstup
  187.  ELSE
  188.   STOR .f. TO firstup
  189.  ENDI
  190.  DO WHIL .NOT. firstup
  191.   IF SUBSTR(data,1,1) = 'J'
  192.    STOR VAL(SUBSTR(data,2,3)) TO entryno
  193.    STOR .t. TO firstup
  194.   ELSE
  195.    SKIP -1
  196.   ENDI
  197.  ENDD WHILE .NOT. firstup
  198.  STOR SUBSTR(mdate1,7,2) + SUBSTR(mdate1,1,2) + SUBSTR(mdate1,4,2) TO mdat1
  199.  IF rent01 > 0
  200.   STOR entryno + 1 TO entryno
  201.   STOR entryno + 1000 TO entryn
  202.   STOR STR(entryn,4) to entry
  203.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  204.   APPE BLANK
  205.   REPL date WITH mdat1
  206.   REPL data WITH entry+'013020C'+'rent accrual        '+DTOC(date())+'J'
  207.   REPL amount WITH (rent01*-1)
  208.   APPE BLANK
  209.   REPL date WITH mdat1
  210.   REPL data WITH entry+'011040D'+'rent accrual        '+DTOC(date())+'J'
  211.   REPL amount WITH rent01
  212.  ENDI rent01 > 0
  213.  IF rent02 > 0
  214.   STOR entryno + 1 TO entryno
  215.   STOR entryno + 1001 TO entryn
  216.   STOR STR(entryn,4) to entry
  217.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  218.   APPE BLANK
  219.   REPL date WITH mdat1
  220.   REPL data WITH entry+'023020C'+'rent accrual        '+DTOC(date())+'J'
  221.   REPL amount WITH (rent02*-1)
  222.   APPE BLANK
  223.   REPL date WITH mdat1
  224.   REPL data WITH entry+'021040D'+'rent accrual        '+DTOC(date())+'J'
  225.   REPL amount WITH rent02
  226.  ENDI rent02 > 0
  227.  IF rent03 > 0
  228.   STOR entryno + 1 TO entryno
  229.   STOR entryno + 1001 TO entryn
  230.   STOR STR(entryn,4) to entry
  231.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  232.   APPE BLANK
  233.   REPL date WITH mdat1
  234.   REPL data WITH entry+'033020C'+'rent accrual        '+DTOC(date())+'J'
  235.   REPL amount WITH (rent03*-1)
  236.   APPE BLANK
  237.   REPL date WITH mdat1
  238.   REPL data WITH entry+'031040D'+'rent accrual        '+DTOC(date())+'J'
  239.   REPL amount WITH rent03
  240.  ENDI rent03 > 0
  241.  IF rent04 > 0
  242.   STOR entryno + 1 TO entryno
  243.   STOR entryno + 1001 TO entryn
  244.   STOR STR(entryn,4) to entry
  245.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  246.   APPE BLANK
  247.   REPL date WITH mdat1
  248.   REPL data WITH entry+'043020C'+'rent accrual        '+DTOC(date())+'J'
  249.   REPL amount WITH (rent04*-1)
  250.   APPE BLANK
  251.   REPL date WITH mdat1
  252.   REPL data WITH entry+'041040D'+'rent accrual        '+DTOC(date())+'J'
  253.   REPL amount WITH rent04
  254.  ENDI rent04 > 0
  255.  IF rent05 > 0
  256.   STOR entryno + 1 TO entryno
  257.   STOR entryno + 1001 TO entryn
  258.   STOR STR(entryn,4) to entry
  259.   STOR 'J' + SUBSTR(entry,2,3) TO entry
  260.   APPE BLANK
  261.   REPL date WITH mdat1
  262.   REPL data WITH entry+'053020C'+'rent accrual        '+DTOC(date())+'J'
  263.   REPL amount WITH (rent05*-1)
  264.   APPE BLANK
  265.   REPL date WITH mdat1
  266.   REPL data WITH entry+'051040D'+'rent accrual        '+DTOC(date